home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / CAR2N.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  99 lines
  1. 1 D=1
  2. 5 PRINT"รด"
  3. 6 POKE 53281,0:POKE 53280,0
  4. 7 V2=54272
  5. 10 V=53248
  6. 12 FOR T= 1 TO 100
  7. 14 SB=INT(RND(1)*(880)+1064)
  8. 15 IF SB<1064 OR SB>1944 THEN 14
  9. 16 POKE SB,46:POKE V2+SB,1
  10. 17 NEXT T
  11. 30 POKE 2042,13: POKE 2041,14
  12. 35 POKE V+21,4
  13. 40 FOR N=0TO 62
  14. 50 READ Q
  15. 60 POKE 832+N,Q:NEXT
  16. 62 POKE V+23,4:POKE V+29,4
  17. 64 FOR X=0 TO 225
  18. 66 POKE V+4,X
  19. 67 POKE V+5,100
  20. 68 IF X>210 THEN FOR G=1 TO P:NEXT G:P=P+1
  21. 69 NEXT X
  22. 70 FOR D=0 TO 1.57 STEP 0.1
  23. 71 POKE V+4,SIN(D)*20+225
  24. 72 POKE V+5,120-COS(D)*20
  25. 73 NEXT D
  26. 82 FOR X= 120 TO 212
  27. 84 POKE V+4,245
  28. 85 POKE V+5,X
  29. 86 FOR G=1 TO D:NEXT G
  30. 87 D=D+.5
  31. 90 NEXT X
  32. 99 GOTO 200
  33. 100 DATA 0,0,0,0,8,0,0,62,0
  34. 110 DATA 0,119,0,34,235,160,35,255,224
  35. 120 DATA 38,255,179,47,127,122
  36. 130 DATA 63,190,254,63,221,252,31,235
  37. 140 DATA 252,7,255,240,0,255,128,1,62,64
  38. 150 DATA 2,8,32,4,8,16,8,8,8,16,8,4
  39. 160 DATA 96,28,3,0,0,0,0,0,0
  40. 200 POKE V+21,6
  41. 201 FOR N=0 TO 62:READ Q:POKE 896+N,Q:NEXT
  42. 202 POKE V+40,13
  43. 204 FOR T=1 TO 100:NEXT T
  44. 205 L=255:D=225
  45. 210 POKE V+2,L:POKE V+3,D
  46. 215 L=L-2:D=D+2
  47. 217 FOR T=1 TO 50:NEXT T
  48. 220 IF D<238 THEN 210
  49. 225 FOR J=1 TO  50:POKE V+2,L-J:FOR T=1 TO 50:NEXT T:NEXT J
  50. 230 FOR X= 212 TO 0 STEP -1
  51. 235 POKE V+4,X+33
  52. 240 POKE V+5,X
  53. 245 NEXT X
  54. 294 GOTO 300
  55. 295 DATA 0,0,0,14,0,0,14,0,0,14,0,0
  56. 296 DATA 4,0,0,127,0,0,15,0,0,15,0,0
  57. 297 DATA 15,0,0,15,0,0,12,0,0,12,0,0
  58. 298 DATA 28,0,0,0,0,0,0,0,0,0,0,0    
  59. 299 DATA 0,0,0,0,0,0,0,0,0,0,0,0
  60. 300 V2=54272
  61. 305 POKE 1926,78:POKE V2+1926,1
  62. 310 POKE 1887,8:POKE V2+1887,1
  63. 315 POKE 1888,5:POKE V2+1888,1
  64. 320 POKE 1889,12:POKE V2+1889,1
  65. 325 POKE 1890,16:POKE V2+1890,1
  66. 330 POKE 1891,32:POKE V2+1891,1
  67. 335 POKE 1892,33:POKE V2+1892,1
  68. 400 REM
  69. 405 POKE 2043,15
  70. 420 FOR N=0 TO 62 :READ Q:POKE 960+N,Q:NEXT N
  71. 425 POKE V+23,8:POKE V+29,8
  72. 427 POKE V+42,13
  73. 430 POKE V+21,10
  74. 435 FOR X = 0 TO 120  STEP .50
  75. 440 POKE V+6,165:POKE V+7,X
  76. 445 NEXT X
  77. 489 GOTO 500
  78. 490 DATA 0,0,0,2,0,0,63,224,0,127,240,0,63,224,254
  79. 492 DATA 0,192,96,0,96,192,0,49,128,0,127,240,0,127,240,0,0,0
  80. 494 DATA     
  81. 500 V2=54272
  82. 505 POKE 1926,78:POKE V2+1926,1
  83. 510 POKE 1887,2:POKE V2+1887,1
  84. 515 POKE 1888,5:POKE V2+1888,1
  85. 520 POKE 1889,1 :POKE V2+1889,1
  86. 525 POKE 1890,13:POKE V2+1890,1
  87. 530 POKE 1891,32:POKE V2+1891,1
  88. 535 POKE 1892,13:POKE V2+1892,1
  89. 540 POKE 1893, 5:POKE V2+1893,1
  90. 545 POKE 1894,32:POKE V2+1894,1
  91. 550 POKE 1895,21:POKE V2+1895,1
  92. 555 POKE 1896,16:POKE V2+1896,1
  93. 560 POKE 1897,44:POKE V2+1897,1
  94. 565 POKE 1898,19:POKE V2+1898,1
  95. 570 POKE 1899, 3:POKE V2+1899,1
  96. 575 POKE 1900,15:POKE V2+1900,1
  97. 580 POKE 1901,20:POKE V2+1901,1
  98. 585 POKE 1902,20:POKE V2+1902,1    
  99.